perm filename TTXSEM.DAT[TEX,DEK] blob sn#400179 filedate 1978-11-30 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(Changes to TEXSEM for typewriter simulation)
C00007 00003	Insert the following line into the mathglue procedure on page 14:
C00008 00004	Insert the following line into routine [hmode+spacer] on page 18:
C00009 ENDMK
C⊗;
(Changes to TEXSEM for typewriter simulation)

The following information replaces the latter part of page 7:

preload_with bin('077),rel('077),'077,'077,bin('077),'077,'077,'077,
		comment null(center-dot),down,alpha,beta,meet,not,epsilon,pi;
	'077,'077,'077,'077,bin('453),bin('077),'077,'077,
		comment lambda,gamma,delta,IFSUAI integral ENDSUAI IFMIT up ENDMIT,
			plsmns,circplus,infinity,partl;
	rel('077),rel('077),bin('077),bin('077),'077,'077,bin('077),rel('077),
		comment cont_in,contains,cap,cup,for_all,exists,circtms,dblarrow;
	'430,rel('077),'077,rel('433),rel('474),rel('476),rel('475),bin('077),
		comment IFSUAI underline ENDSUAI IFMIT left ENDMIT,right,
			IFSUAI tilde ENDSUAI IFMIT uneq ENDMIT,
			IFSUAI uneq ENDSUAI IFMIT diamond ENDMIT,
			lseq,gteq,equiv,join;
	'077,cls('41),'42,'43,'44,'45,'46,cls('47),
		comment space,exc,dblquotes,sharp,dollar,percent,ampersand,apost;
	opn('50),cls('51),'52,bin('53),punct('54),bin('55),'56,'57,
		comment left_paren,right_paren,astrsk,plus,comma,minus,period,slash;
	'60,'61,'62,'63,'64,'65,'66,'67,
		comment 0,1,2,3,4,5,6,7;
	'70,'71,'72,punct('73),rel('74),rel('75),rel('76),cls('77),
		comment 8,9,colon,semicolon,less,equal,greater,query;
	'100,'301,'302,'303,'304,'305,'306,'307,
		comment at,A,B,C,D,E,F,G;
	'310,'311,'312,'313,'314,'315,'316,'317,
		comment H,I,J,K,L,M,N,O;
	'320,'321,'322,'323,'324,'325,'326,'327,
		comment P,Q,R,S,T,U,V,W;
	'330,'331,'332,opn('450),bin('457),cls('451),rel('077),rel('077),
		comment X,Y,Z,left_bracket,backslash,right_bracket,
			IFSUAI up ENDSUAI IFMIT up ENDMIT,
			IFSUAI left ENDSUAI IFMIT underscore ENDMIT;
	opn('047),'341,'342,'343,'344,'345,'346,'347,
		comment rev_apostrophe,a,b,c,d,e,f,g;
	'350,'351,'352,'353,'354,'355,'356,'357,
		comment h,i,j,k,l,m,n,o;
	'360,'361,'362,'363,'364,'365,'366,'367,
		comment p,q,r,s,t,u,v,w;
	'370,'371,'372,opn('173),'174,
			IFSUAI bin('077) ENDSUAI IFMIT cls('175) ENDMIT,
			IFSUAI cls('176) ENDSUAI IFMIT rel('077) ENDMIT,
			IFSUAI bin('077) ENDSUAI IFMIT op('077) ENDMIT;
		comment x,y,z,left_brace,absolute,
			IFSUAI diamond ENDSUAI IFMIT rightbrace ENDMIT,
			IFSUAI rightbrace ENDSUAI IFMIT tilde ENDMIT,
			IFSUAI hat ENDSUAI IFMIT integral ENDMIT;
	saf integer array mathdecode[0:'177] # decoding table for SUAI characters;

comment The following variables are used to govern the layout of displayed
equations. Processing of displays is a relatively straightforward addition
to the processing of math formulas in text lines, most of the code for this
appears in procedure "finishdisplay";

integer eqnobox # points to box containing an equation number, if present;
real abovedisplaywidth # amount of text on the line before a displayed equation
	(if small enough, the dispskip glue will be omitted over the equation);
Insert the following line into the mathglue procedure on page 14:

if x<.15 then x←0 else if x<1.0 then x←0.5; y←0; z←0 # this is for typewriters;
Insert the following line into routine [hmode+spacer] on page 18:
	if spacefactor > 2.0 then gluespace(q)←2.0*gluespace(p) else